r = 1

gotticket = 1
gotpopcorn = 1
goteyeofra = 0
gotbloodknife = 0
gotdoll = 0
gotbrain = 0
gotbell = 0
gotsoul = 0
troll = 1
dracula = 1
mummy = 1
zombie = 1
ghost = 1
death = 1
clown = 1
kid = 1
drunk = 1

SCREEN 12
COLOR 2, 0
CLS

DIM SHARED DOOM AS DOUBLE
Minutes = 59
Seconds = 59
GameTime = Minutes * 60 + Seconds

DIM directions(1 TO 63) AS STRING
directions(1) = "NORTH"
directions(2) = "SOUTH OR EAST"
directions(3) = "EAST, WEST, OR NORTH"
directions(4) = "NORTH OR WEST"
directions(5) = "EAST OR SOUTH"
directions(6) = "EAST, WEST, OR SOUTH"
directions(7) = "NORTH OR WEST"
directions(8) = "WEST OR SOUTH"
directions(9) = "NORTH OR EAST"
directions(10) = "EAST, WEST, OR SOUTH"
directions(11) = "EAST OR SOUTH"
directions(12) = "NORTH"
directions(13) = "NORTH OR WEST"
directions(14) = "SOUTH OR EAST"
directions(15) = "NORTH, EAST, OR WEST"
directions(16) = "WEST OR SOUTH"
directions(17) = "NORTH, SOUTH, OR EAST"
directions(18) = "NORTH"
directions(19) = "NORTH OR WEST"
directions(20) = "SOUTH"
directions(21) = "NORTH, SOUTH, OR WEST"
directions(22) = "NORTH, SOUTH, OR EAST"
directions(23) = "WEST OR SOUTH"
directions(24) = "EAST OR WEST"
directions(25) = "NORTH, SOUTH, OR EAST"
directions(26) = "NORTH OR SOUTH"
directions(27) = "NORTH, EAST, OR WEST"
directions(28) = "EAST OR WEST"
directions(29) = "EAST OR SOUTH"
directions(30) = "NORTH"
directions(31) = "EAST OR WEST"
directions(32) = "WEST OR SOUTH"
directions(33) = "NORTH OR EAST"
directions(34) = "WEST OR SOUTH"
directions(35) = "NORTH, SOUTH, OR EAST"
directions(36) = "NORTH OR SOUTH"
directions(37) = "NORTH, SOUTH, OR EAST"
directions(38) = "NORTH OR SOUTH"
directions(39) = "NORTH OR WEST"
directions(40) = "NORTH OR EAST"
directions(41) = "SOUTH"
directions(42) = "WEST"
directions(43) = "WEST"
directions(44) = "NORTH, SOUTH, OR WEST"
directions(45) = "EAST OR WEST"
directions(46) = "NORTH OR EAST"
directions(47) = "NORTH, SOUTH, OR EAST"
directions(48) = "EAST OR WEST"
directions(49) = "NORTH, SOUTH, OR WEST"
directions(50) = "NORTH, SOUTH, OR WEST"
directions(51) = "EAST OR WEST"
directions(52) = "NORTH, SOUTH, OR EAST"
directions(53) = "NORTH, SOUTH, OR EAST"
directions(54) = "EAST OR WEST"
directions(55) = "NORTH, SOUTH, OR WEST"
directions(56) = "EAST, WEST, OR SOUTH"
directions(57) = "EAST OR WEST"
directions(58) = "EAST OR SOUTH"
directions(59) = "EAST OR WEST"
directions(60) = "EAST OR WEST"
directions(61) = "EAST OR WEST"
directions(62) = "WEST"
directions(63) = "NORTH OR SOUTH"

PRINT ""
PRINT ""
PRINT "______________________________________________________________________"
PRINT "|Well, it's Friday night on a cold October day. You've just lost your|"
PRINT "|job and figured why not. A place on the outskirts of town on the    |"
PRINT "|side of the road. Something is calling out to you and thus what is  |"
PRINT "|within the confines of this place will soon be witnessed by you.    |"
PRINT "|                                                                    |"
PRINT "|The moon is full and a warm breeze calms you during this night.     |"
PRINT "_____________________________________________________________________|"
DO: LOOP UNTIL INKEY$ <> ""


DO: LOOP UNTIL INKEY$ <> ""
DOOM = TIMER(0.001) + GameTime 'change this to to desied time for the game to run

DO
    CLS
    PRINT
    PRINT
    PRINT "                                                                            "
    PRINT "                                                                              "
    PRINT "                                                                   "
    PRINT "                                 Lost Circus                        "
    PRINT "                                                                  "
    PRINT "                                 Written by                         "
    PRINT "                                 D.B. Taylor                         "
    PRINT ""
    PRINT "                                 Copyright (c) 2016"
    PRINT ""
    PRINT SPACE$(38);
    IF INSTR(directions(r), "NORTH") THEN PRINT "N" ELSE PRINT
    PRINT "*---------------------------------* ";
    IF INSTR(directions(r), "WEST") THEN PRINT "W"; ELSE PRINT " ";
    PRINT " + ";
    IF INSTR(directions(r), "EAST") THEN PRINT "E"; ELSE PRINT " ";
    PRINT " *------------------------------------*"
    PRINT SPACE$(38);
    IF INSTR(directions(r), "SOUTH") THEN PRINT "S" ELSE PRINT
    PRINT
    PRINT "If you are stuck just type HELP."
    PRINT
    GOSUB ROOM
    GOSUB parser
LOOP

ROOM:
IF r = 1 THEN: GOSUB r1
IF r = 2 THEN: GOSUB r2
IF r = 3 THEN: GOSUB r3
IF r = 4 THEN: GOSUB r4
IF r = 5 THEN: GOSUB r5
IF r = 6 THEN: GOSUB r6
IF r = 7 THEN: GOSUB r7
IF r = 8 THEN: GOSUB r8
IF r = 9 THEN: GOSUB r9
IF r = 10 THEN: GOSUB r10
IF r = 11 THEN: GOSUB r11
IF r = 12 THEN: GOSUB r12
IF r = 13 THEN: GOSUB r13
IF r = 14 THEN: GOSUB r14
IF r = 15 THEN: GOSUB r15
IF r = 16 THEN: GOSUB r16
IF r = 17 THEN: GOSUB r17
IF r = 18 THEN: GOSUB r18
IF r = 19 THEN: GOSUB r19
IF r = 20 THEN: GOSUB r20
IF r = 21 THEN: GOSUB r21
IF r = 22 THEN: GOSUB r22
IF r = 23 THEN: GOSUB r23
IF r = 24 THEN: GOSUB r24
IF r = 25 THEN: GOSUB r25
IF r = 26 THEN: GOSUB r26
IF r = 27 THEN: GOSUB r27
IF r = 28 THEN: GOSUB r28
IF r = 29 THEN: GOSUB r29
IF r = 30 THEN: GOSUB r30
IF r = 31 THEN: GOSUB r31
IF r = 32 THEN: GOSUB r32
IF r = 33 THEN: GOSUB r33
IF r = 34 THEN: GOSUB r34
IF r = 35 THEN: GOSUB r35
IF r = 36 THEN: GOSUB r36
IF r = 37 THEN: GOSUB r37
IF r = 38 THEN: GOSUB r38
IF r = 39 THEN: GOSUB r39
IF r = 40 THEN: GOSUB r40
IF r = 41 THEN: GOSUB r41
IF r = 42 THEN: GOSUB r42
IF r = 43 THEN: GOSUB r43
IF r = 44 THEN: GOSUB r44
IF r = 45 THEN: GOSUB r45
IF r = 46 THEN: GOSUB r46
IF r = 47 THEN: GOSUB r47
IF r = 48 THEN: GOSUB r48
IF r = 49 THEN: GOSUB r49
IF r = 50 THEN: GOSUB r50
IF r = 51 THEN: GOSUB r51
IF r = 52 THEN: GOSUB r52
IF r = 53 THEN: GOSUB r53
IF r = 54 THEN: GOSUB r54
IF r = 55 THEN: GOSUB r55
IF r = 56 THEN: GOSUB r56
IF r = 57 THEN: GOSUB r57
IF r = 58 THEN: GOSUB r58
IF r = 59 THEN: GOSUB r59
IF r = 60 THEN: GOSUB r60
IF r = 61 THEN: GOSUB r61
IF r = 62 THEN: GOSUB r62
IF r = 63 THEN: GOSUB r63
RETURN

parser:
PRINT "> ";
cmd$ = GrabInput
cmd$ = LTRIM$(RTRIM$(UCASE$(cmd$)))
IF cmd$ = "END" OR cmd$ = "QUIT" OR cmd$ = "EXIT" OR cmd$ = "Q" THEN
    END
END IF
IF cmd$ = "HELP" OR cmd$ = "H" OR cmd$ = "?" THEN
    CLS
    PRINT "HERE ARE SOME BASIC COMMANDS THAT CAN BE USED IN THE GAME..."
    PRINT
    PRINT "NORTH, EAST ,SOUTH, AND WEST - MOVE TO AN AVAILABLE LOCATION"
    PRINT "EXAMINE (OBJECT)             - EXAMINE AN OBJECT"
    PRINT "USE (OBJECT)                 - USE AN OBJECT"
    PRINT "TAKE (OBJECT)                - TAKE OR MOVE AN OBJECT"
    PRINT "TALK                         - TALK TO SOMEONE"
    PRINT "KILL                         - KILL AT YOUR OWN RISK"
    PRINT "INVENTORY                    - VIEW YOUR INVENTORY"
    PRINT "HELP                         - VIEW THIS SCREEN"
    PRINT "END                          - END GAME"
    PRINT
    PRINT "PRESS ANY KEY...": SLEEP
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF cmd$ = "INVENTORY" OR cmd$ = "INV" OR cmd$ = "ITEMS" OR cmd$ = "I" THEN
    CLS
    PRINT "INVENTORY..."
    PRINT
    IF gotticket = 1 THEN: PRINT "A ticket for this little circus."
    IF gotpopcorn = 1 THEN: PRINT "A bag of over salted porcorn."
    IF goteyeofra = 1 THEN: PRINT "A plastic disc with a eye painted on it."
    IF gotbloodknife = 1 THEN: PRINT "A blood stained plastic knife."
    IF gotdoll = 1 THEN: PRINT "A doll of Dracula. Crudly made in some sweat shop."
    IF gotbrain = 1 THEN: PRINT "A brain in a glass jar."
    IF gotbell = 1 THEN: PRINT "The bell from the Captains sunken ship."
    IF gotsoul = 1 THEN: PRINT "A bright orb within a jar."
    PRINT
    PRINT "PRESS ANY KEY..."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF cmd$ = "GO NORTH" OR cmd$ = "NORTH" OR cmd$ = "N" THEN
    IF r = 1 THEN: r = 2: GOTO moved
    IF r = 3 THEN: r = 5: GOTO moved
    IF r = 4 THEN: r = 6: GOTO moved
    IF r = 7 THEN: r = 8: GOTO moved
    IF r = 9 THEN: r = 10: GOTO moved
    IF r = 12 THEN: r = 11: GOTO moved
    IF r = 13 THEN: r = 14: GOTO moved
    IF r = 15 THEN: r = 63: GOTO moved
    IF r = 63 THEN: r = 21: GOTO moved
    IF r = 21 THEN: r = 22: GOTO moved
    IF r = 22 THEN: r = 23: GOTO moved
    IF r = 30 THEN: r = 29: GOTO moved
    IF r = 18 THEN: r = 17: GOTO moved
    IF r = 17 THEN: r = 16: GOTO moved
    IF r = 19 THEN: r = 20: GOTO moved
    IF r = 40 THEN: r = 41: GOTO moved
    IF r = 39 THEN: r = 38: GOTO moved
    IF r = 38 THEN: r = 37: GOTO moved
    IF r = 37 THEN: r = 36: GOTO moved
    IF r = 36 THEN: r = 35: GOTO moved
    IF r = 35 THEN: r = 34: GOTO moved
    IF r = 33 THEN: r = 32: GOTO moved
    IF r = 27 THEN: r = 26: GOTO moved
    IF r = 26 THEN: r = 25: GOTO moved
    IF r = 25 THEN: r = 44: GOTO moved
    IF r = 44 THEN: r = 49: GOTO moved
    IF r = 49 THEN: r = 50: GOTO moved
    IF r = 50 THEN: r = 55: GOTO moved
    IF r = 55 THEN: r = 56: GOTO moved
    IF r = 46 THEN: r = 47: GOTO moved
    IF r = 47 THEN: r = 52: GOTO moved
    IF r = 52 THEN: r = 53: GOTO moved
    IF r = 53 THEN: r = 58: GOTO moved
END IF
IF cmd$ = "GO EAST" OR cmd$ = "EAST" OR cmd$ = "E" THEN
    IF r = 2 THEN: r = 3: GOTO moved
    IF r = 3 THEN: r = 4: GOTO moved
    IF r = 5 THEN: r = 6: GOTO moved
    IF r = 6 THEN: r = 7: GOTO moved
    IF r = 9 THEN: r = 8: GOTO moved
    IF r = 11 THEN: r = 10: GOTO moved
    IF r = 10 THEN: r = 13: GOTO moved
    IF r = 14 THEN: r = 15: GOTO moved
    IF r = 15 THEN: r = 16: GOTO moved
    IF r = 17 THEN: r = 19: GOTO moved
    IF r = 40 THEN: r = 39: GOTO moved
    IF r = 37 THEN: r = 43: GOTO moved
    IF r = 35 THEN: r = 42: GOTO moved
    IF r = 33 THEN: r = 34: GOTO moved
    IF r = 22 THEN: r = 31: GOTO moved
    IF r = 31 THEN: r = 32: GOTO moved
    IF r = 29 THEN: r = 27: GOTO moved
    IF r = 27 THEN: r = 28: GOTO moved
    IF r = 28 THEN: r = 21: GOTO moved
    IF r = 25 THEN: r = 24: GOTO moved
    IF r = 24 THEN: r = 23: GOTO moved
    IF r = 46 THEN: r = 45: GOTO moved
    IF r = 45 THEN: r = 44: GOTO moved
    IF r = 47 THEN: r = 48: GOTO moved
    IF r = 48 THEN: r = 49: GOTO moved
    IF r = 52 THEN: r = 51: GOTO moved
    IF r = 51 THEN: r = 50: GOTO moved
    IF r = 53 THEN: r = 54: GOTO moved
    IF r = 54 THEN: r = 55: GOTO moved
    IF r = 58 THEN: r = 57: GOTO moved
    IF r = 57 THEN: r = 56: GOTO moved
    IF r = 56 THEN: r = 59: GOTO moved
    IF r = 59 THEN: r = 60: GOTO moved
    IF r = 60 THEN: r = 61: GOTO moved
    IF r = 61 THEN: r = 62: GOTO moved
END IF

IF cmd$ = "GO SOUTH" OR cmd$ = "SOUTH" OR cmd$ = "S" THEN
    IF r = 2 THEN: r = 1: GOTO moved
    IF r = 5 THEN: r = 3: GOTO moved
    IF r = 6 THEN: r = 4: GOTO moved
    IF r = 8 THEN: r = 7: GOTO moved
    IF r = 11 THEN: r = 12: GOTO moved
    IF r = 10 THEN: r = 9: GOTO moved
    IF r = 14 THEN: r = 13: GOTO moved
    IF r = 23 THEN: r = 22: GOTO moved
    IF r = 22 THEN: r = 21: GOTO moved
    IF r = 21 THEN: r = 63: GOTO moved
    IF r = 63 THEN: r = 15: GOTO moved
    IF r = 16 THEN: r = 17: GOTO moved
    IF r = 17 THEN: r = 18: GOTO moved
    IF r = 20 THEN: r = 19: GOTO moved
    IF r = 41 THEN: r = 40: GOTO moved
    IF r = 34 THEN: r = 35: GOTO moved
    IF r = 35 THEN: r = 36: GOTO moved
    IF r = 36 THEN: r = 37: GOTO moved
    IF r = 37 THEN: r = 38: GOTO moved
    IF r = 38 THEN: r = 39: GOTO moved
    IF r = 32 THEN: r = 33: GOTO moved
    IF r = 29 THEN: r = 30: GOTO moved
    IF r = 58 THEN: r = 53: GOTO moved
    IF r = 53 THEN: r = 52: GOTO moved
    IF r = 52 THEN: r = 47: GOTO moved
    IF r = 47 THEN: r = 46: GOTO moved
    IF r = 56 THEN: r = 55: GOTO moved
    IF r = 55 THEN: r = 50: GOTO moved
    IF r = 50 THEN: r = 49: GOTO moved
    IF r = 49 THEN: r = 44: GOTO moved
    IF r = 44 THEN: r = 25: GOTO moved
    IF r = 25 THEN: r = 26: GOTO moved
    IF r = 26 THEN: r = 27: GOTO moved
END IF
IF cmd$ = "GO WEST" OR cmd$ = "WEST" OR cmd$ = "W" THEN
    IF r = 4 THEN: r = 3: GOTO moved
    IF r = 3 THEN: r = 2: GOTO moved
    IF r = 7 THEN: r = 6: GOTO moved
    IF r = 6 THEN: r = 5: GOTO moved
    IF r = 8 THEN: r = 9: GOTO moved
    IF r = 13 THEN: r = 10: GOTO moved
    IF r = 10 THEN: r = 11: GOTO moved
    IF r = 16 THEN: r = 15: GOTO moved
    IF r = 15 THEN: r = 14: GOTO moved
    IF r = 19 THEN: r = 17: GOTO moved
    IF r = 39 THEN: r = 40: GOTO moved
    IF r = 43 THEN: r = 37: GOTO moved
    IF r = 42 THEN: r = 35: GOTO moved
    IF r = 34 THEN: r = 33: GOTO moved
    IF r = 32 THEN: r = 31: GOTO moved
    IF r = 31 THEN: r = 22: GOTO moved
    IF r = 21 THEN: r = 28: GOTO moved
    IF r = 28 THEN: r = 27: GOTO moved
    IF r = 27 THEN: r = 29: GOTO moved
    IF r = 23 THEN: r = 24: GOTO moved
    IF r = 24 THEN: r = 25: GOTO moved
    IF r = 44 THEN: r = 45: GOTO moved
    IF r = 45 THEN: r = 46: GOTO moved
    IF r = 49 THEN: r = 48: GOTO moved
    IF r = 48 THEN: r = 47: GOTO moved
    IF r = 50 THEN: r = 51: GOTO moved
    IF r = 51 THEN: r = 52: GOTO moved
    IF r = 55 THEN: r = 54: GOTO moved
    IF r = 54 THEN: r = 53: GOTO moved
    IF r = 62 THEN: r = 61: GOTO moved
    IF r = 61 THEN: r = 60: GOTO moved
    IF r = 60 THEN: r = 59: GOTO moved
    IF r = 59 THEN: r = 56: GOTO moved
    IF r = 56 THEN: r = 57: GOTO moved
    IF r = 57 THEN: r = 58: GOTO moved
END IF

'''''''''''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE TICKET") AND gotticket = 1 THEN
    CLS
    PRINT "The sorta ticket one would expect in a place like this. Strange..."
    PRINT "they don't sell beer here."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE POPCORN") AND gotpopcorn = 1 THEN
    CLS
    PRINT "A cheap bag of salty popcorn. It's alright, nothing to write"
    PRINT "home about."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE EYE OF RA") AND goteyeofra = 1 THEN
    CLS
    PRINT "A plastic disc with a poorly painted eye. It's what you'd find"
    PRINT "in a dollar store in a small town somewhere."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE BLOOD KNIFE") AND gotbloodknife = 1 THEN
    CLS
    PRINT "Made in China."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE DOLL") AND gotdoll = 1 THEN
    CLS
    PRINT "A cheaply made doll that resembles Dracula. If you were a child, it"
    PRINT "would be quite neat."
    DO: LOOP UNTIL INKEY$ <> ""
END IF
''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE TROLL") AND r = 12 THEN
    CLS
    PRINT "A guy dressed up as if he just came from another time. Almost as if"
    PRINT "he doesn't blong here."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO TROLL") AND r = 12 THEN
    CLS
    PRINT "I seem to have seen you before. Have you been here before?"
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "NO I HAVEN'T") AND r = 12 THEN
    CLS
    PRINT "Well you do look familiar. But if you say so. Enjoy your time and"
    PRINT "remember the Clown may hassle you. He thinks everyone owes him money."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL TROLL") AND r = 12 THEN
    CLS
    GOTO gameover:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
'''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE CLOWN") AND r = 61 THEN
    CLS
    PRINT "He appears to have not washed his outfit in month's. There are"
    PRINT "brown stains covering his once bright colorful pants. The smell"
    PRINT "of cheap booze wafts off of him."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO CLOWN") AND r = 61 THEN
    CLS
    PRINT "Where's my money?"
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "WHAT MONEY") AND r = 61 THEN
    CLS
    PRINT "Don't play dumb with me mac. I know I've lent you money!"
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "HOW MUCH") AND r = 61 THEN
    CLS
    PRINT "Fifty bucks."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "PUNCH CLOWN") AND r = 61 THEN
    CLS
    GOTO win:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL CLOWN") AND r = 61 THEN
    CLS
    GOTO gameover1:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE KID") AND r = 18 THEN
    CLS
    PRINT "Just the average kid. Hocked up on sugar and horrible food. He looks"
    PRINT "around trying to point things out to his Dad. But not getting the"
    PRINT "the response he wishes for."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO KID") AND r = 18 THEN
    CLS
    PRINT "This place is so cool. But my Dad's to busy drinking his pop."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL KID") AND r = 18 THEN
    CLS
    GOTO gameover2:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE DRUNK") AND r = 18 THEN
    CLS
    PRINT "Judging by the expression on his face, he looks as if he'd want to"
    PRINT "be anywhere but this place. He also appears to have had to much to drink."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO DRUNK") AND r = 18 THEN
    CLS
    PRINT "Why did I take him here? Now's he's going to be up all night."
    PRINT "Luckily I snuck this beer in."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL DRUNK") AND r = 18 THEN
    CLS
    GOTO gameover3:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE DRACULA") AND r = 20 THEN
    CLS
    PRINT "Whoever this guy they got playing Dracula, he's amazing. You watch"
    PRINT "as he walks around with such passion to his role. The blood on his"
    PRINT "face look's strangly realistic."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO DRACULA") AND r = 20 THEN
    CLS
    PRINT "You sir, you look as if you wish to solve the riddle of this place?"
    PRINT "You must collect all the items within this hellish place and bring"
    PRINT "them to the exit. Then you will collect your prize."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "PRIZE TO COLLECT") AND r = 20 THEN
    CLS
    PRINT "Yes, at the end of this amusement. You will be given a prize upon"
    PRINT "collecting all items."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL DRACULA") AND r = 20 THEN
    CLS
    GOTO gameover4:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
'''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE MUMMY") AND r = 42 THEN
    CLS
    PRINT "A thin woman, dressed in aged bandages, roams around the room, her moans"
    PRINT "of pain sound remarkably real."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO MUMMY") AND r = 42 THEN
    CLS
    PRINT "Uhhhh...uhhhh...the eye, the eye, it's what will lift this curse..."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "CURSE") AND r = 42 THEN
    CLS
    PRINT "Yes, the evil Doctor who owns this place. He's placed a curse on us."
    PRINT "You will see him in the end of the hall where the sun will rise over"
    PRINT "the land. But don't worry, the Doctor's sick today. She then winks to"
    PRINT "you."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL MUMMY") AND r = 42 THEN
    CLS
    GOTO gameover5:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
''''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE ZOMBIE") AND r = 30 THEN
    CLS
    PRINT "His clothes are torn and covered in mud. His face is pale with green"
    PRINT "spots and his hair is a mess."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO ZOMBIE") AND r = 30 THEN
    CLS
    PRINT "Brains, I need brains to feeeeeeed."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL ZOMBIE") AND r = 30 THEN
    CLS
    GOTO gameover6:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
''''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE GHOST") AND r = 43 THEN
    CLS
    PRINT "Dressed like a Captain from a sunken ship. He moves in a stiff fashion."
    PRINT "As he passes back and forth, the sound of a foghorn going off is heard."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO GHOST") AND r = 43 THEN
    CLS
    PRINT "It was a cold night when she sank. No survivors, I'm trapped here, trapped"
    PRINT "here fo eternityyyyyyy."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "ASK ABOUT THE SHIP") AND r = 43 THEN
    CLS
    PRINT "She was a wonderful ship. Built to sail the world she was. But alas I"
    PRINT "was asleep when she was sunk by a torpedo. If only I stayed on the bridge."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL GHOST") AND r = 43 THEN
    CLS
    GOTO gameover7:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
''''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE DEATH") AND r = 31 THEN
    CLS
    PRINT "A figure standing roughly eight feet tall, stands in the corner of the"
    PRINT "room. Their arms are upon their sides. You can't tell who it is as"
    PRINT "you can't see their face."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO DEATH") AND r = 31 THEN
    CLS
    PRINT "You...you will not leave here alive."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "SERIOUSLY") AND r = 31 THEN
    CLS
    PRINT "It's just an act mister. Something to scare those who sneak booze into"
    PRINT "the place. Plus the kids love it. You do know this isn't real right?"
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "KILL DEATH") AND r = 31 THEN
    CLS
    GOTO gameover8:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "TAKE BLOOD KNIFE") AND gotbloodknife = 0 AND r = 33 THEN
    gotbloodknife = 1
    PRINT "You have taken the Blood Knife."
END IF
IF (cmd$ = "TAKE EYE OF RA") AND goteyeofra = 0 AND r = 10 THEN
    goteyeofra = 1
    PRINT "You have collected the Eye of Ra."
END IF
IF (cmd$ = "TAKE DOLL") AND gotdoll = 0 AND r = 29 THEN
    gotdoll = 1
    PRINT "You have taken the Doll."
END IF
IF (cmd$ = "TAKE BRAIN") AND gotbrain = 0 AND r = 18 THEN
    gotbrain = 1
    PRINT "You have taken the Zombie's Brain."
END IF
IF (cmd$ = "TAKE BELL") AND gotbell = 0 AND r = 12 THEN
    gotbell = 1
    PRINT "You have collected the Captain's Bell from his sunken ship."
END IF
IF (cmd$ = "TAKE SOUL") AND gotsoul = 0 AND r = 43 THEN
    gotsoul = 1
    PRINT "You have taken the Soul of the Ghost."
END IF
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF (cmd$ = "EXAMINE BONES") AND r = 5 THEN
    CLS
    PRINT "A pile of bones put on display. He seemed to be eight feet tall and"
    PRINT "looks as if he's been recently dug up. There's a plaque with more info."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "READ PLAQUE") AND r = 5 THEN
    CLS
    PRINT "The remains of one Henry Villo, a farmer who was born Oct 14, 1888, died"
    PRINT "April 10, 1956. His body was donated by his loving wife."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE MUTATED ANIMAL") AND r = 14 THEN
    CLS
    PRINT "A two headed cow with six legs? Why is there a stitch down the middle?"
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE MUSCLE GUY") AND r = 26 THEN
    CLS
    PRINT "A figure standing roughly eight feet tall stands in the corner of the"
    PRINT "room. His arms are by his sides. You can't tell who it is as you can't"
    PRINT "see their face."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO MUSCLE GUY") AND r = 26 THEN
    CLS
    PRINT "You seem to be amazed by my strength. I want you to know, that I do"
    PRINT "give special lessons on the side if you are interested?"
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "NOT INTERESTED") AND r = 26 THEN
    CLS
    PRINT "Well, maybe you are and you just don't know it?"
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "YES, I AM INTERESTED") AND r = 26 THEN
    CLS
    PRINT "When you are about to leave. Just call my name, we will start training"
    PRINT "then...names Muscle Guy."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "MUSCLE GUY") AND r = 62 THEN
    CLS
    GOTO workout:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE BLOOD STAINS") AND r = 41 THEN
    CLS
    PRINT "Blood is spattered on the walls as if someone was stabbed to death with"
    PRINT "a knife. They look fresh and they seem to be sliding towards the floor."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE SURGICAL TABLE") AND r = 41 THEN
    CLS
    PRINT "A mess of a table. Made out of steel and coated in a thick black almost"
    PRINT "blood like looking substance. Best to be moving on now. Don't you think?  "
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE DANCING CYBORG") AND r = 45 THEN
    CLS
    PRINT "You watch a poorly built robot, judging by it, it's either a suit with"
    PRINT "a guy in it or it was built in the early eighties."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO DANCING CYBORG") AND r = 45 THEN
    CLS
    PRINT "I am a robot and I like to dance...tell my boos Lubok I'm going on break"
    PRINT "in five, please."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE ALIEN") AND r = 48 THEN
    CLS
    PRINT "The waxy figure is encased in a large glass tube, surrounded by a weird"
    PRINT "clear liquid, and it's eye's are the size of oranges. You have an odd"
    PRINT "feeling come over you. As if you are having visions..."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO ALIEN") AND r = 48 THEN
    CLS
    PRINT "You say hello and feel as if someone or something is trying to speak with"
    PRINT "you...moments pass as if suddenly you hear the faint voice of this strange"
    PRINT "being...-Help me, I've been trapped here for years. Free me and you will"
    PRINT "be rewarded greatly..."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "VISIONS") AND r = 48 THEN
    CLS
    PRINT "You see a world unlike anything else before. A world with three moons and"
    PRINT "two suns. Strange beings, standing eight feet tall, with ships that can"
    PRINT "travel the galaxy. You see works of art carved in ice and stone. They are"
    PRINT "truly a wondrous race of beings."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE SCATTERED DISPLAY'S") AND r = 47 THEN
    CLS
    PRINT "Just useless little items. Mostly cat bones and water damaged artwork."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "FREE ALIEN") AND r = 48 THEN
    CLS
    GOTO free:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXAMINE ADVENTURER") AND r = 57 THEN
    CLS
    PRINT "You see a finely dressed Adventurer, wearing the cloths of what"
    PRINT "would expect to see someone wearing in the twenties. He's sitting"
    PRINT "on a chair and seems to be alive."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "TALK TO ADVENTURER") AND r = 57 THEN
    CLS
    PRINT "I have had many great adventures. I recall a time to where I found my"
    PRINT "uncle in this underground world. There was also this time to which I"
    PRINT "took on Dracula and even a Bear. Those were the days. Now, I'm here"
    PRINT "collecting dust."
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF
IF (cmd$ = "EXIT ATTRACTION" OR cmd$ = "HAND OVER ITEMS") AND goteyeofra = 1 AND gotbloodknife = 1 AND gotdoll = 1 AND gotbrain = 1 AND gotbell = 1 AND gotsoul = 1 AND r = 62 THEN
    CLS
    GOTO win:
    DO: LOOP UNTIL INKEY$ = ""
    DO: LOOP UNTIL INKEY$ <> ""
END IF

moved:
RETURN

r1:
PRINT "________________________________________________________________________"
PRINT " A warm evening breeze races past you. You have been waiting for what   "
PRINT " feels like an hour. Towering before you is the massive entrance to this"
PRINT " circus of oddities. An entrace crafted with wood and paint. Gives you  "
PRINT " the feeling of entering a secret world, perhaps a lost world of sorts. "
PRINT "________________________________________________________________________"
RETURN

r2:
PRINT "________________________________________________________________________"
PRINT " While the crowd that has entered before you, children run around as a  "
PRINT " sense of excitement washes over of them. Couple's exchange laughs as   "
PRINT " they are looking upon this world on the side of the road.              "
PRINT "________________________________________________________________________"
RETURN

r3:
PRINT "________________________________________________________________________"
PRINT " In the distance you can see everyone who had entered run off into the  "
PRINT " distance. The laughter is gone, the noise is gone, and you are finally "
PRINT " alone.                                                                 "
PRINT "________________________________________________________________________"
RETURN

r4:
PRINT "________________________________________________________________________"
PRINT " As you wander through the corridors of this world. The smell of mold   "
PRINT " fills the air. They really need to air this place out.                 "
PRINT "________________________________________________________________________"
RETURN

r5:
PRINT "________________________________________________________________________"
PRINT " You are standing before an exhibit of what appears to be a collection  "
PRINT " of BONES.                                                              "
PRINT "________________________________________________________________________"
RETURN

r6:
PRINT "________________________________________________________________________"
PRINT " The walls are painted in a mixture of bright colors. It's something one"
PRINT " would expect to see on a painting drawn by an inmate in the asylum.    "
PRINT "________________________________________________________________________"
RETURN

r7:
PRINT "________________________________________________________________________"
PRINT " As you venture forth into the empty hallways, you feel as if the walls "
PRINT " are closing in on you.                                                 "
PRINT "________________________________________________________________________"
RETURN

r8:
PRINT "________________________________________________________________________"
PRINT " The poorly lit rooms give you a sense of isolation.                    "
PRINT "________________________________________________________________________"
RETURN

r9:
PRINT "________________________________________________________________________"
PRINT " The room seems to be constructed with old planks taken from an old     "
PRINT " barn out in the country.                                               "
PRINT "________________________________________________________________________"
RETURN

r10:
PRINT "________________________________________________________________________"
PRINT " From everything you've seen before. This room is setup like that of an "
PRINT " Egyptian crypt. Torches hang on the walls and the floor is made from   "
PRINT " stone.                                                                 "
PRINT "________________________________________________________________________"
IF goteyeofra = 0 THEN: PRINT "You see hanging on the wall the Eye of Ra. Looks useful."
RETURN

r11:
PRINT "________________________________________________________________________"
PRINT " You notice that the floor beneath your feet has transformed into a dirt"
PRINT " path. The sound of laughter and music can be heard from a far.         "
PRINT "________________________________________________________________________"
RETURN

r12:
PRINT "________________________________________________________________________"
PRINT " As you enter the small room, you notice a TROLL sitting before you.    "
PRINT "________________________________________________________________________"
IF gotbell = 0 THEN: PRINT "A Bell rests upon a stone before the pond."
RETURN

r13:
PRINT "________________________________________________________________________"
PRINT " Everything about this place seems out of sorts. As if there's more to  "
PRINT " this place than you thought.                                           "
PRINT "________________________________________________________________________"
RETURN

r14:
PRINT "________________________________________________________________________"
PRINT " A vast display of a MUTATED ANIMAL. Probably from some farm up state.  "
PRINT " The glass is tained probably from not being cleaned.                   "
PRINT "________________________________________________________________________"
RETURN

r15:
PRINT "________________________________________________________________________"
PRINT " You are standing before two dark abysses. You hear the faint sounds of "
PRINT " people screaming. You notice that no one else is behind you.           "
PRINT "________________________________________________________________________"
RETURN

r16:
PRINT "________________________________________________________________________"
PRINT " A world forever lost, a stop in time, and you are wondering if this was"
PRINT " such a good idea?                                                      "
PRINT "________________________________________________________________________"
RETURN

r17:
PRINT "________________________________________________________________________"
PRINT " Is this suppose to be scary? For a circus there really isn't a lot to  "
PRINT " see! You've been more entertained by the ambient noises then anything  "
PRINT " else.                                                                  "
PRINT "________________________________________________________________________"
RETURN

r18:
PRINT "________________________________________________________________________"
PRINT " You enter a dead end. But alas it isn't that bad. You see A KID and    "
PRINT " someone who appears to be his father...and is also DRUNK.              "
PRINT "________________________________________________________________________"
IF gotbrain = 0 THEN: PRINT "You see a plastic brain, resting in a jar. Simply put fascinating."
RETURN

r19:
PRINT "________________________________________________________________________"
PRINT " Suddenly a group of kids run past you, in pursuit you see their parents"
PRINT " laughing amongst themselves. You hear something about Dracula?         "
PRINT "________________________________________________________________________"
RETURN

r20:
PRINT "________________________________________________________________________"
PRINT " You enter the room and see a coffin, it looks to be made out of plywood"
PRINT " and coated in brown paint. Slowly, you see DRACULA sit up from his     "
PRINT " coffin.                                                                "
PRINT "________________________________________________________________________"
RETURN

r21:
PRINT "________________________________________________________________________"
PRINT " Over the loud speakers you hear the old music that one would hear as   "
PRINT " a child...the ice cream man?                                           "
PRINT "________________________________________________________________________"
RETURN

r22:
PRINT "________________________________________________________________________"
PRINT " You notice shadows cutting in and out from above you. You look up and  "
PRINT " see what appears to be maybe a bat?                                    "
PRINT "________________________________________________________________________"
RETURN

r23:
PRINT "________________________________________________________________________"
PRINT " There's something about this place?                                    "
PRINT "________________________________________________________________________"
RETURN

r24:
PRINT "________________________________________________________________________"
PRINT " Through the walls you hear what sounds like someone making balloon     "
PRINT " animals. The faint voices of adults can be heard.                      "
PRINT "________________________________________________________________________"
RETURN

r25:
PRINT "________________________________________________________________________"
PRINT " The smell of death lingers in the air. Or that of bad B.O.             "
PRINT "________________________________________________________________________"
RETURN

r26:
PRINT "________________________________________________________________________"
PRINT " You enter a small workout room. Weights and equipment are scattered    "
PRINT " and then you see the figure of a strange muscle bound guy. A banner    "
PRINT " hangs over him that says his name is MUSCLE GUY.                       "
PRINT "________________________________________________________________________"
RETURN

r27:
PRINT "________________________________________________________________________"
PRINT " Such an odd place to have a circus? Though some of the people seem to  "
PRINT " be a bit of odd ducks.                                                 "
PRINT "________________________________________________________________________"
RETURN

r28:
PRINT "________________________________________________________________________"
PRINT " The room is with a strange wallpaper. Something you'd see in an old    "
PRINT " home from Ike's era. Cowboy's and Indians fighting each other.         "
PRINT "________________________________________________________________________"
RETURN

r29:
PRINT "________________________________________________________________________"
PRINT " A lone room with a single shelf hanging on the wall.                   "
PRINT "________________________________________________________________________"
IF gotdoll = 0 THEN: PRINT "Greeting you with a smile, sits before you a DOLL."
RETURN

r30:
PRINT "________________________________________________________________________"
PRINT " You are standing before an open mine shaft. A board is placed across   "
PRINT " over it...DEAD END. Suddenly you hear moaning from the shadows. Then   "
PRINT " from the darkness enters the ZOMBIE.                                   "
PRINT "________________________________________________________________________"
RETURN

r31:
PRINT "________________________________________________________________________"
PRINT " The sounds of birds chirping and a river racing. You find yourself in"
PRINT " a poorly decorated wilderness. But you are not alone. DEATH is here.   "
PRINT "________________________________________________________________________"
RETURN

r32:
PRINT "________________________________________________________________________"
PRINT " With every step you take the sound of leaves being crushed fills the   "
PRINT " area. A sense of being watched comes over you. Because you are...      "
PRINT "________________________________________________________________________"
RETURN

r33:
PRINT "________________________________________________________________________"
PRINT " You turn the corner and see a plastic tree, something what one would   "
PRINT " find on the set of a play.                                             "
PRINT "________________________________________________________________________"
IF gotbloodknife = 0 THEN: PRINT "Sticking out of the tree, you see the BLOOD KNIFE."
RETURN

r34:
PRINT "________________________________________________________________________"
PRINT " The dirt path leads you down to a darkened hallway. The scent of deep  "
PRINT " fried foods come in from the poorly constructed walls.                 "
PRINT "________________________________________________________________________"
RETURN

r35:
PRINT "________________________________________________________________________"
PRINT " The walls are built out of tarps and pieces of scrap wood. You can hear"
PRINT " the voices of other's laughing and carrying on.                        "
PRINT "________________________________________________________________________"
RETURN

r36:
PRINT "________________________________________________________________________"
PRINT " Suddenly, the voices fade away and all you can hear is the wind passing"
PRINT " through the cracks. It's as if you've entered another realm within the "
PRINT " the darkness.                                                          "
PRINT "________________________________________________________________________"
RETURN

r37:
PRINT "________________________________________________________________________"
PRINT " You are standing within a darkened hall as the lights begin to flicker."
PRINT "________________________________________________________________________"
RETURN

r38:
PRINT "________________________________________________________________________"
PRINT " Silence engulfs you. But that is quickly broken by the cry of a crow.  "
PRINT "________________________________________________________________________"
RETURN

r39:
PRINT "________________________________________________________________________"
PRINT " You are standing in what can only be described as a waiting room.      "
PRINT "________________________________________________________________________"
RETURN

r40:
PRINT "________________________________________________________________________"
PRINT " The strong smell of cleaning agents wafts through the air. You are     "
PRINT " dreading what awaits you beyond the doorway.                           "
PRINT "________________________________________________________________________"
RETURN

r41:
PRINT "________________________________________________________________________"
PRINT " You are standing in some sort of surgical room. Blood stains the walls "
PRINT " as table rests in the middle. It looks as if this room has been in use "
PRINT " in the past few hours.                                                 "
PRINT "________________________________________________________________________"
RETURN

r42:
PRINT "________________________________________________________________________"
PRINT " You are standing before a cardboard Egyptian Tomb. Shuffling from one  "
PRINT " side of the room to the other is a MUMMY. The faint sound of old       "
PRINT " Eqyptian music plays through a speaker.                                "
PRINT "________________________________________________________________________"
RETURN

r43:
PRINT "________________________________________________________________________"
PRINT " You are standing before a small graveyard. Poorly made wooden crosses  "
PRINT " litter the small room. You see a GHOST roam the cemetary.              "
PRINT "________________________________________________________________________"
IF gotsoul = 0 THEN: PRINT "Resting on the floor, glowing like a star, is a lost SOUL."
RETURN

r44:
PRINT "________________________________________________________________________"
PRINT " You are standing before a series of discoveries never before seen by   "
PRINT " man...nothing special.                                                 "
PRINT "________________________________________________________________________"
RETURN

r45:
PRINT "________________________________________________________________________"
PRINT " When you enter the room. You see a small stage with a glittering red   "
PRINT " curtain. A banner hangs over his head which reads -DANCING CYBORG-.    "
PRINT "________________________________________________________________________"
RETURN

r46:
PRINT "________________________________________________________________________"
PRINT " Just how much further is it till the exit? Everything, everything here "
PRINT " seems to be within the hands of a madman.                              "
PRINT "________________________________________________________________________"
RETURN

r47:
PRINT "________________________________________________________________________"
PRINT " Display rooms littered with strange creatures scattered about.         "
PRINT "________________________________________________________________________"
RETURN

r48:
PRINT "________________________________________________________________________"
PRINT " Standing before you, you feel a strange power come over you. Your hands"
PRINT " are shaking, you feel weak within your knee's, and you see VISIONS of a"
PRINT " distant world. You are standing in the same room as an ALIEN.          "
PRINT "________________________________________________________________________"
RETURN

r49:
PRINT "________________________________________________________________________"
PRINT " You are standing within the confines of an empty room.                 "
PRINT "________________________________________________________________________"
RETURN

r50:
PRINT "________________________________________________________________________"
PRINT " The smell of popcorn is in the air. In the distance, you can hear the  "
PRINT " scratching of someone confined within a case.                          "
PRINT "________________________________________________________________________"
RETURN

r51:
PRINT "________________________________________________________________________"
PRINT " The steps you make can be heard within the walls of this place.        "
PRINT "________________________________________________________________________"
RETURN

r52:
PRINT "________________________________________________________________________"
PRINT " Suddenly, as you hear music playing over the loud speaker. Something   "
PRINT " you'd find on one of those discount store Halloween tapes.             "
PRINT "________________________________________________________________________"
RETURN

r53:
PRINT "________________________________________________________________________"
PRINT " You hear the muffled moans of someone or something in the distance. You"
PRINT " wonder just what it is? Maybe a prank by some kids or some lame SF/X.  "
PRINT "________________________________________________________________________"
RETURN

r54:
PRINT "________________________________________________________________________"
PRINT " The moaning gets louder as you see a MUMMY dressed like a Cowboy.      "
PRINT "________________________________________________________________________"
RETURN

r55:
PRINT "________________________________________________________________________"
PRINT " You are standing before an empty room. A sign hangs on the wall which  "
PRINT " reads -EXIT-."
PRINT "________________________________________________________________________"
RETURN

r56:
PRINT "________________________________________________________________________"
PRINT " The last hallway before the end of this hellish place on the side of   "
PRINT " the highway a sign reads EXIT."
PRINT "________________________________________________________________________"
RETURN

r57:
PRINT "________________________________________________________________________"
PRINT " You enter a section and find on display, that of an old ADVENTURER. You"
PRINT " feel as if you've seen this person before. Maybe, in a different life  "
PRINT " another place?                                                         "
PRINT "________________________________________________________________________"
RETURN

r58:
PRINT "________________________________________________________________________"
PRINT " You are standing within an empty display area.                         "
PRINT "________________________________________________________________________"
RETURN

r59:
PRINT "________________________________________________________________________"
PRINT " You see the faint light of the exit. The feeling of joy and excitement "
PRINT " comes to the surface as a smile washes upon your face.                 "
PRINT "________________________________________________________________________"
RETURN

r60:
PRINT "________________________________________________________________________"
PRINT " The sounds of laughter and carnival music fills the hall.              "
PRINT "________________________________________________________________________"
RETURN

r61:
PRINT "________________________________________________________________________"
PRINT " Standing before you and the exit. You see a CLOWN leaning against the  "
PRINT " wall and smoking.                                                      "
PRINT "________________________________________________________________________"
RETURN

r62:
PRINT "________________________________________________________________________"
PRINT " You are standing in the archway between the outside world and this     "
PRINT " circus. Lost before time and within a pocket of reality. HAND OVER     "
PRINT " ITEMS, before leaving the circus?                                      "
PRINT "________________________________________________________________________"
RETURN

r63:
PRINT "________________________________________________________________________"
PRINT " You are standing within an empty room.                                 "
PRINT "________________________________________________________________________"
RETURN

win:
COLOR 2, 0
CLS
PRINT "You are standing outside the fence of the Circus. You have a strange feeling"
PRINT "wash over you. Was it a dream? Was it some sort of vision of things to come?"
PRINT "You awaken to find yourself lying in the backseat of your car. You sit up and"
PRINT "find not a single trace that there was anything there lastnight...Who know's"
PRINT "what happened that night. But the main thing is you made it out alive. Also,"
PRINT "since you are over the age of ten, you get no prize...sorry."
PRINT ""
PRINT ""
PRINT "-----------------------------------------------------------------------------------"
PRINT "Thank you for playing"
PRINT
PRINT "-Lost Circus-"
PRINT ""
PRINT "Written by D.B. Taylor"
DO: LOOP UNTIL INKEY$ <> ""
END

workout:
COLOR 2, 0
CLS
PRINT "As soon as you say his name, Muscle Guy show's up, and he gives you a nod."
PRINT "Month's pass and soon you find yourself with a wonderful six pack and"
PRINT "entering body building contests and you even win some. Muscle Guy, was"
PRINT "right. God bless him."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

free:
COLOR 2, 0
CLS
PRINT "Without a moment to spare, you knock over the glass prison. The sound of"
PRINT "the glass shattering and liquid spilling all over the ground draws the"
PRINT "attention of security. But before you can run, the being raises it's hand"
PRINT "into the air summoning it's people...time passes...and you find yourself"
PRINT "lying on the ground a few feet from the side of the highway. Explosions"
PRINT "can be heard in the distance and people screaming for help...just what"
PRINT "happened? Only one way to findout. Good luck. Stay tuned for -Invasion"
PRINT "Adventure-"
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover:
COLOR 2, 0
CLS
PRINT "The Troll looks upon you with fear in his eye's. As you strangle the life"
PRINT "from his body. His cheap makeup starts to rub off. Suddenly, you feel a"
PRINT "firm hand on your shoulder. It's security and quickly you are thrown out."
PRINT "What a way to end a Friday night."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover4:
COLOR 2, 0
CLS
PRINT "With one quick blow, you thrust your fist into his face. He drops like"
PRINT "a sack of trash. You stand over his body and finish the job. Good job,"
PRINT "you just killed Dracula, you'd think you would be thanked but no. You"
PRINT "are arrested and sent to prison for life."
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover5:
COLOR 2, 0
CLS
PRINT "Your mind begin's to race, you see a monster from beyond the grave stands"
PRINT "before you. Without a second to spare, you kick the Mummy in the stomach."
PRINT "She let's out a scream and falls to the ground. Strange, for a Mummy do"
PRINT "feel pain. You quickly run in fear and are now on the run from the law."
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover6:
COLOR 2, 0
CLS
PRINT "A Zombie...you feel a bit dizzy just knowing what this monster has"
PRINT "feasted upon. He smiles at you, the look of hunger in his eyes, and"
PRINT "the smell coming from his clothes. You muster up all your strength"
PRINT "and return this creature to once it came. The padded cell is a nice"
PRINT "touch."
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover8:
COLOR 2, 0
CLS
PRINT "Before you can do anything. Death grabs you by the throat and starts"
PRINT "to scream and shout in a tongue you don't understand. Before security"
PRINT "can come in. He snaps your neck and drops you to the floor."
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover1:
COLOR 2, 0
CLS
PRINT "Without much strength you drop the Clown in one punch. A creepy circus"
PRINT "song begin's to play and you can swear that you hear people cheering."
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover2:
COLOR 2, 0
CLS
PRINT "Why would you want to kill a kid? You are truly a monster and I should"
PRINT "know. I gave you that option. You do nothing and the programmer gives"
PRINT "you a GAME OVER."
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover3:
COLOR 2, 0
CLS
PRINT "The guy looks as if he's had a little too much to drink. You look around"
PRINT "and find no one is watching. Quickly you grab him by the throat. But before"
PRINT "too long, his son kicks you in the knee, and the two run away screaming."
PRINT "Well, prison isn't to bad this time of year."
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

gameover7:
COLOR 2, 0
CLS
PRINT "Before you can do anything. The Ghost pulls out his pistol and fires a"
PRINT "shot...BULLEYE'S. Congrats on dying in this place. Try again later."
PRINT ""
PRINT "Game Over..."
PRINT
DO: LOOP UNTIL INKEY$ <> ""
END

FUNCTION GrabInput$
x = POS(0)
y = CSRLIN
maxwidth = _WIDTH - x
PCOPY 0, 1 'make a backup copy of the screen

DO
    k = _KEYHIT
    i$ = INKEY$
LOOP UNTIL k = 0 AND INKEY$ = "" 'clear the keyboard buffer

DO
    _LIMIT 30
    PCOPY 1, 0
    LOCATE y, x: PRINT Userinput$

    k = _KEYHIT
    SELECT CASE k
        CASE 8
            Userinput$ = LEFT$(Userinput$, LEN(Userinput$) - 1)
        CASE 65 TO 90, 97 TO 122, 32
            Userinput$ = UCASE$(Userinput$ + CHR$(k))
    END SELECT

    timerleft## = (DOOM - TIMER(0.001))
    minutes = timerleft## \ 60
    seconds = timerleft## - minutes * 60
    LOCATE 2, 32: PRINT USING " ###:##.###"; minutes, seconds
    IF timerleft## <= 0 THEN GOTO doomed
    _DISPLAY

LOOP UNTIL k = 13
GrabInput$ = Userinput$
_AUTODISPLAY
EXIT FUNCTION

doomed:
CLS
PRINT "You get lost within the maze of twisted rooms and displays. Before you know"
PRINT "it, security escorts you out. It's a shame you weren't able to claim your"
PRINT "prize. Oh well, better luck next time."
_DISPLAY
END
END SUB